What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/Internal_9_buyers guide drop down list scripts.ls

Text File | 1998-05-11 | 6.2 KB | 137 lines

on initialiseSpritesForHighlight
  global numberOfSpritesUsedToCreateHighLight, SpriteHighlight
  set SpriteHighlight to 100
  set numberOfSpritesUsedToCreateHighLight to 6
  set lastSprite to SpriteHighlight + numberOfSpritesUsedToCreateHighLight - 1
  repeat with s = SpriteHighlight to lastSprite
    puppetSprite(s, 1)
  end repeat
end

on initialiseSpritesForList
  global SpriteList, SpriteForFirstOptionInList, SpriteForFirstDecorativeLineOnList, numberOfSpritesUsedToCreateList, maxOptions, SpriteNumForCategoryHeading, scrollUpSprite, scrollDownSprite, closeButtonSpriteNum
  set closeButtonSpriteNum to 86
  puppetSprite(86, 1)
  set SpriteList to 50
  set numberOfSpritesUsedToCreateList to 8
  set SpriteNumForCategoryHeading to 59
  set SpriteForFirstOptionInList to 60
  set SpriteForFirstDecorativeLineOnList to 70
  set maxOptions to 10
  set scrollUpSprite to 87
  set scrollDownSprite to 88
  set the visible of sprite scrollUpSprite to 0
  set the visible of sprite scrollDownSprite to 0
  set lastSprite to SpriteList + numberOfSpritesUsedToCreateList - 1
  repeat with s = SpriteList to lastSprite
    puppetSprite(s, 1)
  end repeat
  puppetSprite(SpriteNumForCategoryHeading, 1)
  set lastSprite to SpriteForFirstOptionInList + maxOptions - 1
  repeat with s = SpriteForFirstOptionInList to lastSprite
    puppetSprite(s, 1)
  end repeat
  set lastSprite to SpriteForFirstDecorativeLineOnList + maxOptions - 1
  repeat with s = SpriteForFirstDecorativeLineOnList to lastSprite
    puppetSprite(s, 1)
  end repeat
  hideGraphicLIst()
end

on createBuyersGuideDropDownList
  global listOfSelectedReviews, categoryType, pointerToReviewsList, reviewsDisplayed, SpriteList, SpriteForFirstOptionInList, SpriteForFirstDecorativeLineOnList, numberOfSpritesUsedToCreateList, maxOptions, ScrollPosTop, scrollBarLength, scrollIncrements, xl, borderWidth, SpriteNumForCategoryHeading, scrollReviews, closeButtonSpriteNum
  set xl to 0
  set yt to 0
  set headingHeight to 40
  set borderWidth to 20
  set lineSpacing to 20
  set pointerToReviewsList to 1
  set NumItems to count(listOfSelectedReviews)
  if NumItems > maxOptions then
    set reviewsDisplayed to maxOptions
    set scrollReviews to 1
  else
    set reviewsDisplayed to NumItems
    set scrollReviews to 0
  end if
  set lengthOfLongestName to line 1 of field (categoryType && "list")
  set lastWordPos to the number of words in lengthOfLongestName
  set listWidth to 0 + word lastWordPos of lengthOfLongestName
  set xr to xl + listWidth + 60
  set yb to yt + (40 + (reviewsDisplayed * lineSpacing))
  puppetSprite(SpriteList + 8, 1)
  if scrollReviews = 0 then
    set ScrollPosTop to yt + headingHeight
    set scrollDisplay to yb - ScrollPosTop
    set scrollBarLength to scrollDisplay * reviewsDisplayed / NumItems
    set scrollIncrements to 0
    set the visible of sprite 87 to 0
    set the visible of sprite 88 to 0
  else
    set ScrollPosTop to yt + headingHeight + 25
    set scrollDisplay to yb - ScrollPosTop - 25
    set scrollBarLength to scrollDisplay * reviewsDisplayed / NumItems
    set scrollIncrements to (0.0 + yb - 25 - (ScrollPosTop + scrollBarLength)) / (0.0 + NumItems - reviewsDisplayed)
    set the visible of sprite 87 to 1
    set the visible of sprite 88 to 1
  end if
  set the rect of sprite SpriteList to rect(xl, yt, xr, yb)
  set the rect of sprite (SpriteList + 1) to rect(xl, yt, xr, yt + 1)
  set the rect of sprite (SpriteList + 2) to rect(xr, yt, xr - 1, yb)
  set the rect of sprite (SpriteList + 3) to rect(xl, yb - 1, xr, yb)
  set the rect of sprite (SpriteList + 4) to rect(xl, yt, xl + 1, yb)
  set the rect of sprite (SpriteList + 5) to rect(xl, yt, xr, yt + headingHeight)
  set the rect of sprite (SpriteList + 6) to rect(xl, yt, xl + borderWidth, yb)
  set the rect of sprite (SpriteList + 7) to rect(xl, yt, xl + borderWidth, yt + headingHeight)
  set the foreColor of sprite (SpriteList + 7) to 195
  set the rect of sprite (SpriteList + 8) to rect(xl, ScrollPosTop, xl + borderWidth, ScrollPosTop + scrollBarLength)
  set the locV of sprite closeButtonSpriteNum to yb
  set the locH of sprite closeButtonSpriteNum to xr
  set the member of sprite SpriteNumForCategoryHeading to member (categoryType && "heading")
  set the locH of sprite SpriteNumForCategoryHeading to xl + 35
  set the locV of sprite SpriteNumForCategoryHeading to yt + 28
  createGraphicList(reviewsDisplayed)
  repeat with n = 1 to reviewsDisplayed
    set s to SpriteForFirstOptionInList + n - 1
    set sY to yt + lineSpacing + (n * lineSpacing) - 3
    set the locH of sprite s to xl + 30
    set the locV of sprite s to sY
    set lines to SpriteForFirstDecorativeLineOnList - 1 + n
    set the rect of sprite lines to rect(xl + 30, sY + 1, xr - 10, sY + 2)
  end repeat
  HideHighLight()
  put "Choose review from the list" into field "summary text field"
  put "Choose review from the list" into field "description text field"
  put "Choose review from the list" into field "heading for scores field"
  go("enterDisplayReviews")
end

on createGraphicList reviewsDisplayed
  global listOfSelectedReviews, SpriteForFirstOptionInList
  repeat with l = 1 to reviewsDisplayed
    set currentItem to getAt(listOfSelectedReviews, l)
    set currentItemsCastName to currentItem && "graphic text"
    set the member of sprite (SpriteForFirstOptionInList + l - 1) to member currentItemsCastName
    set the foreColor of sprite SpriteForFirstOptionInList to 195
  end repeat
end

on hideGraphicLIst
  global SpriteList, SpriteForFirstOptionInList, SpriteForFirstDecorativeLineOnList, numberOfSpritesUsedToCreateHighLight, numberOfSpritesUsedToCreateList, maxOptions, SpriteNumForCategoryHeading
  repeat with s = 0 to numberOfSpritesUsedToCreateList
    set the rect of sprite (SpriteList + s) to rect(0, -2, 1, -1)
  end repeat
  set lastSprite to SpriteForFirstOptionInList + maxOptions - 1
  repeat with s = SpriteForFirstOptionInList to lastSprite
    set the locH of sprite s to -10
    set the locV of sprite s to -50
  end repeat
  set the locH of sprite SpriteNumForCategoryHeading to -10
  set the locV of sprite SpriteNumForCategoryHeading to -50
  set lastSprite to SpriteForFirstDecorativeLineOnList + maxOptions - 1
  repeat with s = SpriteForFirstDecorativeLineOnList to lastSprite
    set the locH of sprite s to -10
    set the locV of sprite s to -50
  end repeat
end